home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / self / contrib.lha / contrib / 491 / aa / test4.self < prev    next >
Encoding:
Text File  |  1993-07-18  |  1.1 KB  |  57 lines
  1. " simple test cases "
  2. "
  3. *
  4. * These are tests for the polynomial representations. 
  5. * 
  6. * test4.self,v 1.3 1993/07/18 20:22:35 richards Exp
  7. *
  8. * test4.self,v
  9. # Revision 1.3  1993/07/18  20:22:35  richards
  10. # Added substitution of polynomials (not quite working properly yet).
  11. # Some tests for this added to test4.
  12. # Buttons work, selections work, and eventHandling is coming along.
  13. #
  14. # Revision 1.2  1993/05/30  21:41:14  richards
  15. # CVS checkin.
  16. #
  17. # Revision 1.1  1993/05/23  23:16:47  richards
  18. # Initial revision
  19. #
  20. # Revision 1.2  1992/08/19  02:00:39  richards
  21. # Added a description.
  22. #
  23. # Revision 1.1  1992/07/05  22:11:03  richards
  24. # Initial revision
  25. #
  26. *
  27. *
  28. *
  29. "
  30.  
  31. _AddSlotsIfAbsent: (| foo. bar. baz. hunk. junk. roo. moo. too. loo. |)
  32.  
  33. foo: aa scalar create: 'A'
  34. bar: aa scalar create: 'B'
  35. junk: foo + bar
  36. junk printLine          " outputs A+B "
  37.  
  38.  
  39. hunk: junk * foo
  40. hunk printLine
  41.  
  42. baz: hunk makeBoite
  43. baz printLine
  44.  
  45. roo: foo / bar
  46. roo printLine
  47.  
  48. moo: aa scalar create: 'C'
  49. too: roo substitute: moo For: foo
  50. too printLine.
  51.  
  52. loo: hunk substitute: too For: (junk copy)
  53. loo printLine.
  54.  
  55.  
  56.  
  57.